88 
. 
S38388328388838 
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**F ILE**1D**SOROUTPUT 
SSSSSSSS 000000 RRRRRRRR 000000 UU UU TTTTTTTTTT PPPPPPPP UU UU TTTTTTTITIT : 
SSSSSSSS 000000 RRRRRRRR 000000 UU UU TTTTTTTTTT PPPPPPPP UU UU TTTTTTTTTIT ; 
$$ 00 00 RR RR 00 00 UU UU TT PP PP UU UU TT : 
$$ 00 00 RR RR 00 00 UU UU TT PP PP UU UU TT : 
S$ 00 00 RR RR 00 00 UU UU TT PP PP UU TT 
SS 00 00 RP RR 00 00 UU UU TT PP PP UU UU TT 
SSSSSS 00 00 RRRRRRRR 00 00 UU UU TT PPPPPPPP UU UU TT 
SSSSSS 00 00 RRRRRRRR 00 00 UU UU TT PPPPPPPP UU UU TT 
S$ 00 00 RR RR 00 00 UU UU TT PP UU UU TT 
$$ 00 00 RR RR 00 00 UU UU TT PP UU UU TT 
SS 00 00 RR RR 00 00 UU UU TT PP UU UU TT cece 
SS 00 00 RR RR 00 00 UU UU TT PP UU UU TT cece 
SSSSSSSS 000000 RR RR 000000 UUUUUUUUUU TT PP U TT eoee 
SSSSSSSS 000000 RR RR 000000 UUUUUUUUUU TT PP UUUUUUUUUU TT ceee 
LL IIIIII SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL II SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL W111 SSSSSSSS 


o- 
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Output text 


Copyright Notice 
Program description 
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1 “TiTLe 70Rs0 peye “7 ut text 
§ - IDENT 4-000 Le: SOROUTPUT.MAR Edit: PDG016 
# » SBTTL core ght Notice 
5 WITIIIIIIIIIIIITI TILL LITLII ILL LiLi LTT L TTL tii iiii iti ii iiiie 
3* * 
5 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 16 :* ALL RIGHTS RESERVED. . 
0 11 :* THIS SOFTWARE IS ryan snes UNDER A LICENSE AND MAY BE USED AND COPIED * 
: \ ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
8608 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1 - TRANSFERRED. * 
3 ® 
44 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 9 be CORPORATION. - 
$000 § [* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 ;* * 
0000 26 i* © 
0000 8 3 MARBAARAAAAALALSALASLALASALALEEASELESASA SESE SERA SER AE ER SRSA EEE ASSESS EERE SERRE ESS 
0000 : 


J 11 
vive i Prauran desertonton ~$eE= 138 LE 5: $8 SORTS. RES SoMOUTOUT MAR: 1 ae &d) 


p 6 ial -SBTTL Program description 

: ; FACILITY: 

¢ ; Output text by using SPUTMSG. 

6 ; ABSTRACT: 
0 ; NONE 
$6 5 3 
$ re ; ENVIRONMENT: 
000 rt: : Native mode, User mode, AST reentrant 
0000 43 ; 
44 44 ; AUTHOR: 
S000 aa Peter D Gilbert, June 1982 

3 eter ert, June 

$0004? : 
0000 48 ; MODIFIED BY: 
0000 49 ; 
0000 50 ; T03-016 PDGO16 25-Aug-1982 
0000 21 3 Add a compile-time variable indicat tng whether to use one 
i444 26 ; SPUTMSG per Line, or to use as few S$PUTMSG calls as possible. 
464 2? 3 703-015 riginal 


<y 
oo 


0 
00000001 i 
6 
0000 64 
0000004 92 
SHE 
000040 Bp 8 
FRFFFFF 0 
FFFFFFF 0 71 
FFFFFFFC 000 i 
OA 0D 000 7 
00 74 
003C 000 75 
0004 6 
0004 7 
0004 78 
FBF8 CE SF 0004 79 
00000400 8F DD 0008 + 
5E 04 AE 00 000 1 
AC 9F 001 5 
F8 AD OF 001 8 
F8 AD SF 0018 84 
04 AC DD Baie 85 
00000000 ' GF 04 FB a3 86 
7A 50 €9 B05 87 
0028 88 
0028 B9 
b858 90 
FB AD oF 00 91 
01 DD 0028 38 
00091130 8F DD 0 4 9 
00010003 8F 0D 0 94 
bp 9 95 
039 38 
0039 9 
7E 7C¢ 039 98 
7E 4 tH 9 
OC AE Ff D 100 
04 OD 04 101 
04 1 § 
04 1 
4 104 
54 D4 4 105 
00000001 4 1 $ 
JFF 8F FB A B1 44 1 
4 15 4A 1 3 
33 FC AD 4h 4 1 
52 0 oonyr F p 5 119 
4 § D 5 11 
63 52 ~=A2 AF 39 SA 112 


Output text 


Program description 


10$: 


20$: 
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"Sr$EP=1984 03:57:06 ESORYSS, SRESSONOUTPUT. MAR; 1 


H's a 
SYSSF AOL 
SYSSPUTMSG 


SORSRO_CODE 


BYTE *XOD, “XOA 


- ENTRY 


me ds 


Externals must be explicitly declared 


; System service to format ASCII text 


System service to output a message 
Define SHRS.TEXT) ’ 


; If non-zero, minimize SPUTMSG calls 


If zero, use one SPUTMSG per Line 


NOVEC ,NOWRT ,RD,EXE,SHR,LCL,REL,CON,PIC,LONG 


Offset from AP of control string 
Offset from AP of poraseter lis 
Maximum size for SPUTMSG 

Buffer size 

Offset from FP of descriptor 
Offset from FP of Length 

Offset from FP of address 
Carraige-return, Line-feed 


SORSSOUTPUT, “M<R2,R3,R4,R5> 


; Allocate a descriptor and a buffer on the stack 


PUSHAB 
PUSH 


(AP) 
orn. 


: Form the message vector 


DSC(FP) 
PUSHL #*x00000001 
#9916+SHRS_TEXT 
#*x00010003 


Push buffer address 

Push buffer length 

Allocate the buffer 

Push address of pecqneter list 
Push address of buffer descriptor 
Push address for returned Length 
Push address of CTRSTR descriptor 
Format the output 

Check status 


on the stack 


; Push address of descriptor 


Push FAO count, Message flags 


; Push message | 


Push count of longwords, Flags (only message) 


: Form the argument List on the stack 


tLRQ 2s = (SP) 
CLRL = = (SP) 
PUSHAB 12(SP) 
PUSHL #4 


: See whether one SPUTMSG 


CLRL 


ADR(FP), R3 
#k_PUTMSG, R2 


vQ 
MATCHC 


NE, OPT 
NCFP), #K_PUTMSG 


RS R4 
#2, CRLF, R2, (R3) 


Two null parameters 
One null parameter 
Address of message vector 
Number of arguments 


will suffice 
; Clear the remaining length 


Short enough for one SPUTMSG? 
Branch if short enough 

Get address of string 

Get maximum length 

Save descriptor of remaining bytes 
Find a CRLF 


SO! 
vO 


11 
voe=000 Program description SSEp=198¢ 03:57:06 ESonYss. sReSsoROUTPUT.MaR;:1 28° (3) 


F 13 6 113 BEQL eps :; Branch if found 
FC AD 5 ? 114 30$ CMPL RS, ADR(FP) ; Same address? 
11 115 BEQL 3; Branch if no CRLF found 
29 55 FC AD C 118 SUBL ADR(FP), R5, RO ; Compute Length to output (plus 2) 
4 FRAD 5 C 0 11 SUBL RO, LEN(FP) RG ; Compute remaining Length 
FB AD 50 O02 € 0 118 SUBL3 #2. RO, LEN(FP) ; Compute Length to output 
1 11 7 11 BRB 90$ 3; Go output the text 
144 120 -ENDC 
00000001 7 121 olf EQ, OPT 
£9 3 OV ADR(FP), RS 
65 F8 AD HH AF Q 3 79 =—s «124 «408 MATCHC #2, CRLF, LEN(FP), (R5) ; Find first CRLF anywhere 
F8 AD C 0 125 SUBL Ro, LEN(FP) ; Subtract the remaining length 
FB AD C 084 1 § SUBL #2, LENCFP) ; And two bytes for the CRLF 
F8 AD £ 088 1 ADOL RO, LEN(FP) ; Add two bytes back if CRLF not found 
54 2 D Q0O8C 128 MOVQ R2, R4 3; Save string descriptor of remainder 
OOOO0000'GF 6E€ FA QOBF 129 90$ CALLG (SP), G*SYSSPUTMSG ; Put out the message 
09 50 «£9 0096 130 BLBC =s_-« RO, «99S > Check status 
FB AD 54 D 009 131 MOVQ R4, DSC(FP) 3; Move remainder into the descriptor 
F8 AD D5 Q09D 1 § TSTL LEN(FP) 3; Is remaining length zero? 
AO 12 QOAO 1 BNEQ 10$ ; No, go output some more 
04 OOA 134 99$: RET ; Return 
Q0A 135 
00A 136 - END 


Mm 11 


The working set Limit was 1050 pages. 
7520 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 121 non-local and 6 local symbols. 
136 source Lines were read in Pass 1, produc ing AS on 70cs records in Pass 2 
m 


8 pages of virtual memory were used to define ros. 


mere rer cme c wm err eon ew ewer erat 


Macro Library name Macros defined 


-$255$DUA28: CSYSLIBISTARLET.MLB;2. 4 
168 GETS were required to define 4 macros. 


SORSOUTPUT Output text 16-SEP-1984 01:18:4 AX/VMS Macro V04-00 Fe 

Symbol table , ae ee 9 84:49:38 YeORY 5 ERE SSonOUTPUT.MAR: 1 ta (3) 
por = aa aaa aa . 02 : 
CTRSTR - aittdit : 
= ADDO LOD : 
K_BUFSIZ = 44s edt 3 
K_PUTMSG = QO00000F F é 
- ? A ppnoDT : 
MLST = 0900009 : 
SHR$_TEXT = 000011 ; 
SORSSOUTPUT 00000002 RG 0 3 
SYSS$F AOL reteenee x 8 H 
SYSSPUTMSG eeeeeeee x ‘ 
porter ete nen ees cece + : 
! Psect synopsis ! 3 
weet eee cree ss ewe + Py 
PSECT name Allocation PSECT No. Attributes ; 
.« OBS « 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE : 
SABSS 444444 ( 3° 4 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE ; 
SORSRO_CODE 000000A ( 163.) ; e Ben PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG : 
¢ we ewe sr er seen enn wceeocee en + : 
H Performance indicators ; : 
Phase Page faults CPU Time Elapsed Time 3 
Initialization 29 90:00:00.06 00:00:00.77 ; 
Command processing 119 0: 8290-08 88:80:02 "06 : 
Pass 130 00:00:01.60 00:00:06.09 3 
Ta bewedae HEIRS BR aah : 
Symbol table output : 0; 6; 0.08 00:00:00.03 ; 
Psect synopsis output 00:00:00.0 Bo +B 3B «Be : 
Cross-reference output ee 88:80 298-9 3 
Assembler run totals 32 00:00:02. 00:00:12.35 : 


There were no errors, warnings or information messages. 


N 11 
vant} Rocro Run Statistics stent Pet "E7StP 71982 83: 8: $8 SoRY 5 oat {SOR NOoTeUT. MAR; 1 — (3) 


MACRO/DISABLE=TRACE/LIS=LIS$:SOROUTPUT/OBJ=0BJ$:SOROUTPUT MSRC$:SOROUTPUT/UPDATE=(ENH$: SOROUTPUT) 


PMENT CORPORATION 
ND PROPRIETARY 


